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MODULE PATLEX ( 
cn aieeal EQ. 1 


ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE), 
NT = ‘'V04-000' 
BEGIN 


' 
PSEC S SSS SSIT IS TTT TTT TTT TTT TT Te Tce treet ice irri ice c iti iii ii citi it iiiii i: 


'® 

'‘® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 

'® ALL RIGHTS RESERVED. 

'w THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
: ONLY IN ACCORDANCE WITH THE TERMS SUCH LICENSE AND WITH THE 
'w INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
- PAANSFERREOY NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
Hl eeponat ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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; ++ 
; FACILITY: PATCH 
4 ABSTRACT: THIS MODULE CONTAINS A MARS SCANNER. 

40 ; ENVIRONMENT: STARLET, user mode, interrupts disabled. 
AUTHOR: Carol Peters, CREATION DATE: 25 July 1977 
MODIFIED BY: 
! v02-012 PCG0001 Peter George 02-FEB-1981 
Add require statement for LIBS:PATDEF.REQ 
i MODIFICATIONS: 
NO DATE PROGRAMMER PURPOSE 
1! 
: 0 S5-JAN-7 K.D. MORSE ADAPT VERSION 15 FOR PATCH. 
' 01 4-JAN- K.D. MORSE NO CHANGES FOR VERS 16. 
' $ 4-MAR-7 K.D. MORSE NO CHANGES FOR VERS 17-18. 
: 8 14-APR-7 K.D. MORSE NO CHANGES FOR VERS 19-20. 
! 4 25-APR-7 K.D. MORSE CONVERT TO NATIVE COMPILER. 
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! Extracts a MARS Llexeme from the input buff 
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SWITCHES LIST (SOURCE); 


EXTERNAL i TINE 
PAT$fao_out; ! formats a Line and outputs to the terminal 
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GLOBAL ROUTINE PATSMAR_GET_LEX (input _stg_desc, lexeme_stg_desc) = ! gets a lexeme from input Line 
14+ 


' Functional description: 


Using the character pointer for the input Line, extracts a lexeme 
from the input Line. A lexeme is defined as an operator, an 

are gee string, a numeric string, or an 
illegal string. Blanks and comments are absorbed. 


The lexeme is returned in the lexeme buffer in the 

same form as in the input string, except for numeric 
strings, in which case the string is converted to a 
binary number and that is returned in the lexeme buffer. 
A nog ma equivalent of the lexeme is the value of the 
routine. 


Calling Sequence: 
CALL get_MAR_lexeme (input_stg_desc.rt.dd, lexeme_stg_desc.rt.dv) 
Formal parameters: 


input_stg_desc = string descriptor to the input buffer. 
lexeme_stg_desc = varying string descriptor to the lexeme buffer 


Implicit inputs: 


The character mapping table, prer-type, table. that maps each 
ASCII character onto a dense List of equivalents. 
The token_table, that maps operators onto their token equivalents. 


Outputs: 


input_stg_desc <- the field dsc$a_pointer is updated to point to 
the next byte to be read in the input stream. 
This byte is the delimiter of the lexeme found. 
The field dsc$w_length contains the Length of 
the yet unread Tnput Line. 

lexeme_stg_desc - the field dsc$w_length holds the actual length 
in bytes of the lexeme found. The lexeme buffer 
addressed by the field dsc$a_pointer holds the 
lexeme string or value. 


Implicit outputs: 


The ASCII representation of the lexeme is written into the 
string addressed by the dsc$a_pointer field of lexeme_stg_desc. 
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Routine value: 
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al 


the type of lexeme found, ppeesy number, alpha string, 
operator, keyword token, illegal. 


Side effects: 


none 
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lee 
BEGIN 
LITERAL 


Page 
A i 


table_offset 
operator _max 


BIND 
token_table = UPLIT BYTE ( 

op.paren.token, 
cl_paren_token, 
plus_token, 
minus_token, 
slash_token, 
colon_token, 
semi_colo_token, 
quote_token 
up_arrow token, 
backslash_token, 
at_sign_token, 
period_foken, 
asterisk_token, 
Langle_token, 
rangle_token, 
comma_ftoken, 
equals_token, 
Lsquare_token, 
rsquare_ token, 


SER ets SS oe Re Oe he ae 
MEAN “OO ONAUE WN $ O OONOUES WN OVONOUS Wn 
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hash_token 
) : VECTOR C, BYTE); 
LITERAL 
max_state_index = 4, ! index ranges from 0 to 4 
invalid_state = 0, ' invalid character seen 
alpha_state s 1, ' alphabetic string expected 
0 numeric_state = 2, ' numeric string expected 
0 eol_token_state = 3, ' Logical end of Line or error seen 
0 radix_state = 4, ! radix setting expected , 
unspec_state = 5; ! unspecified state, probably special charac 
BIND 
lex_type_tbl = UPLIT ( 


mask (illegal) 
mask (alpha, alpha_low, alpha_and_hex, alphalo_and_hex, period), 
mask (numeric), . 
mask (ind_comment, end_of_line), 
mask (up_arrow 
) : VECTOR; 


BIND 
lex_state_tbl = UPLIT BYTE ( 
invalid_state, 
alpha_sfate, 
numeric_state, 
eol_token_state, 
radix_state 
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eed ee eed ed ed en ee et ene ee ee ed a ce ee cl ce i et ee el ce ee a ce ee ee cl ce ct cl ce ee ee a ce a ce cd a ee ce ce ca ce a ce ce ce ee ce a a oe 
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4 2:52:36 DISKSVMSMASTER: CPATCH.SRCJPATLEX.B832; 1 (3) | 
; 8 1188 ) : VECTOR C, BYTE); | 
: 209 1189 
; 0 1190 LITERAL 
3 1 113) radix_max = 3; ! maximum number of MARS radices 
3 3 : 1198 BIND 
; 4 1194 radix_equiv_tbl = UPLIT BYTE ( , 
; § 5 1195 "B', binary_radix, 
; ¢- 1196 'O', octal_radix 
; esr 1197 'D', decimal_radix, 
: 238 1198 "x"! hex_radTx | 
3 § 9 1199 ) : BLOCK C, WORD]; 
: 240 1500 
> 241 1201 MACRO 
; seg 1606 radix_char = 0, . 0%, ! radix ASCII character 
; 24 120 radix_equiv = 8, 8, 02; ! radix equivalent | 
> 244 1204 
; 245 1205 MAP 
; 246 1206 input_stg_desc : REF BLOCK z BYTE], ! input string descriptor | 
5 sek 1¢0? lexeme_stG_desc : REF BLOCK C, BYTE); ! Lexeme string descriptor 
3 $45 1209 2 LOCAL ; | 
3; 200 1210 2 input_ptr, ! character pointer for input | 
ae +) \s\) 5 lexeme_ptr, ' character pointer for Lexeme 
; $26 1 \¢ previous_radix, ! current local radix | 
; 1213 2 state_index, ! index into lex_state_tbl | 
; 254 1214 2 state, ' current state of lexical processor 
3 Ze? 1215 2 char, ! holds a single character 
; 256 1216 2 count; ' counts characters used 
2 gor 1217 2 
; 258 1218 2 LABEL 
3; @o 1219 2 alpha_block, ! label for alpha case in the select 
; 260 1220 2 radix_block; ! Label for up arrow case in the select 
3 26) 1221 2 
; soe 1656 2 i++ ‘ F 
3 sez \$¢7 2 See whether there is any input Line left. If not, signal internal error. 
; 265 1225 3 IF inet stg desc Cdsc$w_length] LSS 0 
> 266 1226 2 THEN SIGNAL (PAT$_PARSEERR); 
3 INFO#252 L1:1225 
; Test expression is always false } 
; 267 1227 
; 268 1228 i++ ; j 
$ $ 1$¢p : Make the string pointers into formal BLISS character pointers. 
: 271 1231 input_ptr = ch$ptr (.input_stg_desc Cdsc$a_pointer]); 
: 4 1336 lexeme_ptr = ch$ptr (.lexeme_stg_desc [dsc$a_pointerd); 
: 274 1234 2 I++ 
: fe ; 36 Save the radix in case it changes temporarily. 
s au 1 $ previous_radix = .PAT$gb_mod_ptr [mode_radix); 
: 278 1S38 count = 0; : : 
; ev 1 REPEAT ! skip leading blanks 
: 280 1240 BEGIN : 
; «281 ise char = ch$rchar (.input_ptr); 
; 282 1242 IF .char_type_table [.char] NEQ blanks 
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>; 283 1243 3 THEN 
: $Re 1528 trout .ote.deve Céectu.tengtad © 4 desc Cdsc$w_length] | 
3 nput_stg_desc Cdsc$w_length] = .input_stg_desc Cdsc$w_length] - .count; 

: 86 1 46 4 EXT TLOOP — ict _—" | 
; 8 1247 & END 
; 288 1248 3 ELSE 
: 289 1249 4 BEGIN 
; 290 1250 4 input_ptr = ch$plus (.input_ptr, 1); 

; 291 1251 & count = .count + 1; | 
3 95 1 26 ; 

: 9 125 END; 

> 294 1 ee 

; 295 1255 144 

; 296 1256 ' Convert the mapping of the first significant character into a lexical state. 

3 344 : ef ! This state drives the later CASE processing. 

3 239 1258 state_index = 0; 

3 300 1260 REPEAT 

; $0) 1261 N 

; 302 1506 IF .lex_type_tbl C.state_index] * .char_type_table C.char] LSS 0 

; 303 12635 3 THEN 

; 306 1264 4 BEGIN 

; 305 1265 4 state = .lex_state_tbl C.state_index]; 

: 06 1266 4 EXITLOOP 

; 307 1267 4 END 

; 308 1268 3 ELSE 

; 309 1269 4 BEGIN 

; 310 1270 4 state_index = .state_index + 1; 

p aN 1271 4 IF .state_index GTR max_state_index 

; $1§ Isf¢ 4 THEN 

.: 1273 5 BEGIN 

s 316 1274 5 state = unspec_state; 

s 315 1275 «5 EXITLOOP 

: 316 1276 4 END; 

: 17 1277 3 END; 

; 318 1278 2 END; 

; 319 it 144 $ 

; 320 1280 REPEAT CASE .state FROM 0 to max_state_index + 1 OF ! analyze current state 

; 321 1281 SET 

3 $56 Ht 

s 3 128 Cinvalid_state]: ! if illegal, just signal 

; 324 1284 2 SIGNAL (PAT$_INVCHAR); 
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3 $ 1 Fi Calpha_state): ! alphanumeric string 

: 1 § alpha_block: 
; 8 1 4 BEGIN 
3 y 1288 ++ 

; 0 1289 ' This is an alphanumeric string. If the 

: 1 1290 ' character is a eer jee see whether the next character is 

3 ¢ 1291 i an alphabetic. If it is, this must be a Logical operator 

3 ? : 3 ! keyword, so allow the leading dot. Otherwise, it is an error. | 
; 5 1294 LOCAL 

; 6 1295 period_present; 

; 7 1 38 

3 8 129 count = 0; 

; 339 1298 IF .char EQL asc_period 

; 340 1299 THEN 

; 341 1300 4 BEGIN 

3 og 1301 4 

; 34 1308 4 LOCAL 

3; 344 1303 4 new_char; 

: 345 1304 4 

; 346 1305 4 new char = ch$rchar (ch$plus (.input_ptr, 1)); 

: 347 P 1306 5 IF NOT (oneof (.char_type_table C.new_cnarJ, Si phe. alpha_low, 

: 348 1307 5 alpha_and_hex, alphalo_and_hex) 

; 349 1308 4 THEN 

; $20 1309 5 BEGIN 

; 351 1310 5! IF .char_type_table C.new_char] EQL numeric 

; $25 1311 5 ! THEN state = numeric_state 

: 3 1316 > ! ELSE state = ynepes State; 

; 354 131 5 STATE = UNSPEC_STATE; ! DON'T ACCEPT NUMBERS WITH DECIMAL POINTS 

3 $2? 1314 2 LEAVE alpha_block; 

; 300 1315 ND 

3 Sor 1316 4 ELSE period_present = TRUE; 

; 358 1317 4 ND 

; 359 1318 ; ELSE period_present = FALSE; 

3 300 1319 

; 1 1320 ; ++ 

; 362 1321 ' Now read the input buffer until a non-alpha and non-numeric 

: 3 1356 ; ' character is encountered. Store each character found in the 

; 364 132 ! buffer for the lexeme unless the length of that buffer is 

; 5 1324 ' expended. 

: 366 1325 leo 

; 367 1326 DO 

: 368 1352 4 BEGIN 
; 369 1; 8 5 IF (oneof (.char_type_table C.char], alpha_low, alphalo_and_hex)) | 
; 370 1 $3 4 THEN char = .chaf = upper_case_dif; 

; «371 1330 4 count = .count + 1; 

s So, 1331 4 IF .count LEQ sym_max_length 

: 37 1336 4 THEN ch$wchar_a (.char, lexeme_ptr); 

3; 374 1333 4 char = ch$a_rchar (input_ptr); 

3 375 1334 4 END 
: 7 i; i WHILE 

: 37 P 1 $ 4 (oneof (.char_type_table C.char] plone. alpha_low, numeric, 
; 8 133 alpha_and_hex, alpha o_and_hex, period)); | 
: 380 1 5 1++ 

; «(381 1340 ! Now see whether the next character is a period 
; 382 1341 ! AND the string started with a period. In this case, store the 
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ending period also. 
IF char EQL asc_period AND .period_present 


BEGIN 

count = .count ¢ 1; 

IF .count LEQ sym_max_length 

THEN ch$wchar (.c¢ rs “,lexeme_ptr); 
input. ptr = ch$plus (.input_ptr, 15; 


++ 
Return the alpha_str_token Llexeme. 


if .count GTR sym_max_length 
THEN 


BEGIN 
SIGNAL (PAT$_STGTRUNC); 
ponent, stg_désc Cdsc$w. length] = sym_max_length; 


WR OOONA VE WN OOONOUE wry 


ELSE lexeme_stg_ desc idecSy Tee = stounts 
input stg_desc Edsc$a_pointér nput_p 
Rout notes “desc Cdsc$w_length] = .input_ ste. "desc Cdsc$w_length] - .count; 
EYURR alpha_str_token 


; 1 
; 1 
oO 1 
; 1 
; 1 
. 1 
. 1 
; 1 
6 1 
3 1 
; 1 
; 1 
3 399 1 
3 1 
oe 1 
6 1 
; 1 
: 1 
3 1 
; 1 
- 1 
; 1 
6 1 
; 1 
; 1 


RAW & & FAWN AWW 


A SE RA DE a oe ee a at LS See 


=1386 99:37: 0 VAX-11 Bliss-32 V4.0 Page 


-742 
7:52:36 DISKSVMSMASTER: CPATCH.SRCJPATLEX.B32; 
Cnumeric_ state): ! numeric string 
BEGIN 


14 

! Now read the input buffer until a non-numeric character is 

' encountered. ere all leading zeroes unless a decimal point 
! was present. tore each character found in the buffer for 

! the lexeme unless the length of that buffer is expended. 


NNN NN NNO Oo 


OCONO NLS WP OOon 


| 
| 
| 
| 
| 
| 
count = 0; | 
| 


; 409 1 

; 410 1 

; 411 1 

$ tig 1 

3 $61 1 

; 416 1 

& tee 

: 41 1 

; 418 1 WHILE 

; 419 1 -char EQL ‘0’ 

: 05 1379 ” BEGIN 

3; 4 ¢ 1380 4 count = .count + 1; 

3; 6 1381 4 char = ch$a_rchar (input_ptr); 

; 426 1 S¢ 3 

: ¢ 3 : Hn ++ 

, 6 : 1385 ! If the entire number was zero, put a single 

; <9 1338 ! zero in the lexeme buffer and return. 

3 rh 1358 snout aty Sees Cdsc$w_length] = .input_stg_desc Cdsc$w_length] - .count; 

; count = 0; 

3 $38 1390 IF .char J table C.char] NEQ numeric 

; 43 1391 4 AND NOT (oneof (.char_type_table C.char], alpha_and_hex, alphalo_and_hex)) 

Shae B We ses 
M4 | 
: 436 1394 4 ch$wchar (0, .lexeme_ptr); 
; 437 1395 4 Lexeme_stg_desc EdscSu_ Length] = 1; 

: 438 1396 4 input Stq_desc Cdsc$a_pointer] = .input_ptr; 

: 439 1397 4 RETURN digit_str_token 

; 440 1398 END; 

i OB . 
3 'e¢ 

3; «6464 1401 ' This is the normal store and pick up next numeric character. 

> 444 1008 leo 

; tte 1202 4 "= BEGIN 

3; 447 1405 4 IF .char_type_table C.char] EQL alphalo_and_hex 

; 448 1406 4 THEN char = .Char = upper_case_dif; 

: 449 1407 4 count = .count + 1; 

; 450 1408 4 IF_.count GTR num_max_length 

: 08) 1210 § THEN BEGIN 

: | 
3 13 1411 2 ch$move (num_max_length - 1, 
3 454 oie 2 ch$plus Tch$ptr (.lexeme_stg_desc Cdsc$a pointer)). 1), 
5 $3? 1037 2 ra ebsore fahpsene._9t =desc dsc$a_pointerJJ); 
3 £28 eis 8 ce wehar (.char, .lexeme_ptr-1); 

: $28 1916 4 ELSE ch$wchar_a (.char, lexeme_ptr); 
; «45 1417 4 char = ch$a_rchar (input_ptr); 

; te 1219 3 WHILE 7 

3 LE 
: 46 P1420 4 (oneof (.char_type_table C.char], numeric, 
: 46 1421 alpha_and_fiex, alphalo_and_hex)); 

3; 464 14 ¢ 
; 465 is 


; 6 1424 '++ 

; 46 1425 i Convert the number, restore the old radix, 

3 rh 1? § i and return the numeric lexeme. 

: 4 Y 14 8 PATSradx _convrt (.lexeme_ wee a be pointer], 
s 67 14 Tlexeme_st geese, tie nterJ) 

: ore 1430 PAT$gb_mod_ptr Ceogs e. rad ‘Brevious, radix; 
: 47 1431 Lexeme_ 33°95 “desc [ dsc Su ay oF 

: 474 14 ; input. Stg_desc (dsc$a -foin ~ = », a 

: 475 14 yous aetds “desc Cdsc$w_ 

; 476 1434 URN digit_str_token 

: 477 1435 2 END; 


nN 


1b-sep-1984 00:52:39 y 


Pag 
CIPATLEX.B832; 1 


ength] = . input. ste. "desc Cdsc$w_length] - .count; 


K 6 
VO.e 80 Freer Bee ae ae Wd mGMASTERcCEAT ON SRCIPATLEX.B3204%° (Od 


; 4 14 Ceol_token state): ! logical end of Line 
a a ; 

3; 4 § 14 5 ! The Length of the input Line should be set to zero here. 

; 4 1440 ' Reduce it one so that it is less than zero. This will cause 

> 484 1441 ' an error if this same input Line ever comes back to the lex 

3 ret ote ' routine. 

; ri 1444 lLexeme_stg_desc meg agi bm bin, = 0; 

; 488 1445 input _Stg_desc pasczepotn er] = ch$plus (.input_ptr, 1); 

; 489 1446 aneus stg desc Cdsc$w_length] = .input_stg_desc Tdsc$w_length] - 1; 
; 490 1447 3 RETURN eol_token 

; 491 1446 END; 


ane 
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USZSSSUSTRAS SSanonrwve-oSewe nr oro ooo wT 
09 69 09 09 09 09 09 SI NINN NIN NINN NP PAA AA AA AA MMIII 


PV PULUSPVSDUSVSVSUSUSUSVSVSVSVUSUSVSTU SUSU SSIS VSS ISIS ISIS 
WA.AAARINIPONIPINIPYINIPYID 2 SO OS OS OS 


¥ 


w 


al 
ee me ce me ce ee ce ce ee ce ce ee ee ee ee ee ee a ee ee eB ee ee ee ed ed ed ed ed od 


WUIMUNIVIUIE BEER LLL LLL LLL LLP PLE PPP PPP PPP PPP PPP PPP PPP PPP LPP PLES 
MEW 20 OONA UE WN 9 ODNOAUE WIN 8 ODNAUES WIN 2 OOONOAOUE WN" OVOONOUE WOO 
[OP oP oP oy oF oP eal ali al er et er ee ee We et er et er er er el ee ee 
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6 | 
1b-se -1984 00:37: VAX-11 Bliss-32 V4.0-742 Page 15 
1278671 382 99:33:38 DISKSVMSMASTER:LPATCH. SRCJPATLEX.B32: 1" (7) | 
Cradix_state]: ! up arrow, quote, percent sign 
radix_block: BEGIN ! MARS handling 
144 


! AN up arrow can occur as a standalone character meaning 

! previous location, or as a Spec tet character that indicates 

! radix. In the Latter case, the up arrow is followed by one of 
! the letters 'B', ‘0°, or "X", and then a numeric string 

! (without an intervening space). First check for the letter. 


new_char; 


= ch$rchar (ch$plus (.input_ptr, 1)); 

neof (.char_type_table C.charJ, alpha_low, alphalo_and_hex)) 

char = .char - uveer case dif; 

T ((.char EQt ° OR (.char EQL '0') OR (.char EQL 'D') OR (.char EQL 'x')) 


ee 
i This is the single character meaning previous location. 


' Just update the string descriptors, write the up arrow 
into the lexeme buffer, and return. 


char = asc_up_arrow; 
state = unspec_state; 


| 
LEAVE radix_block; 
END; 
| 


le4 
! This looks Like a radix indicator. If a number follows, it 

' must be. In this case, set the current mode according to the 

i radix encoding. Then leave this code block. The effect is that 
! on the next loop through the CASE expression, control will 

! stop at the numeric processing block. 

new_char = ch$rchar (ch$plus (.input_ptr, 2)); 

IF Toneof (.char_type_ta le C.new char], numeric, 
THEN alpnha_and_hex, alphalo_and_hex)) 


BEGIN 
input_ptr = ch$plus (.input_ptr, 2); 
INCR Thdex FROM 0 TO radix ax 0 f : 
A cel EQL .radix_equiv_tbl C.index, radix_char] 


BEGIN 
PAT$gb_mod_ptr Cmode_radix] = ; 
-radix_equiv_tbl C.index, radix_equiv]; 
EXITLOOP 
END; 
char = .new_char; : 
input_stg_desc Cdsc$w_length] = .input_sig_desc Cdsc$w_length] - 2; 
state = numeric state; 
LEAVE radix_block; 


ELSE 


= 
a> ToC eT ePLELELEL eee ELE eLeLerLeLert ere eile ee ee Sr eT ee er er er ee) er ee Oe TT Ses Bs Bs Bs Be ee el 
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Just return 


A 
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char = asc_up_arrow; 
spec_state; 
LEAVE radix_block; 


state = un 
END; 


END; 


vwvwvwvevevewremnrs 


Cee eee eikonal eee eee cee coal ce coe 
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-1984 00:37: VAX=11 Bliss-32 V4.0-742 P 17 
- 382 1933558 DISKSVMSMASTER:CPATCH.SRCJPATLEX.B32;1- (8) 
' 


; 561 151 Cunspec_state): special character Like operator or illegal 
; 36 Hi BEGIN . 
+ 364 1 18 ! Most likely, this is a single character operator. Write its 

> 565 1520 ' ASCII value into the lexeme buffer, and return its equivalent 

; 68 ! 1 token. 

; 568 1 5 IF .char yee tants C.char] GEQ pooie offset 

; 569 1524 AND .Char_type_table C.char] CEQ operator_max 

s or 1525 THEN 

; ef) 15 § 4 BEGIN 

H Ie 1 4 

3 OF 1528 4 LOCAL 

; 574 1 9 4 index; 

; af? 1530 4 

; 576 1531 4 index = table_offset; 

s Ser 15 ¢ 4 REPEAT 

; 578 15 5 BEGIN 

; 579 1534 5 IF .char_type_table C.char] EQL .index 

; 580 1535 5 THEN 

; 581 1536 6 BEGIN 

3 266 1537 6 ch$wchar (.char, .lexeme_ptr); 

; 58 1538 6 lexeme_stg_desc Cdsc$w_ Length) = 1; 

; 584 1539 6 input_Stg_desc Cdsc$a_pointer) = ch$plus (.input_ptr, 1); 
; 585 1540 6 snus stg_desc dsc$w_length] = .input ote desc Tdsc$w_length] - 1; 
; 586 1541 6 RETURN .token_table CTindex - table_offset] 

3 Ser 1206 6 END 

; 588 1543 5 ELSE index = .index + 1; 

; 589 1544 5 IF .index GTR operator_max 

3 390 1545 5§ THEN EXITLOOP; 

; 591 1546 4 END; 

5 298 1547 END; 

; 59 1548 

; 594 1549 1+¢ 

s 35 1550 ! This doesn't seem to be anything about which we know. 

; 596 1551 i SIGNAL invalid character. 

3; 597 1326 eed 

; 598 155 SIGNAL (PAT$_INVCHAR); 

; 599 1554 § END; 

; 600 1555 

: 601 1556 § TES; 

; 602 1557 

; 605 1558 1 END; ! end of get_mar_lexeme 
> INFO#212 L1:1278 

3 Null expression appears in value-required context 


TITLE PATLEX 
-IDENT \V04-000\ 


.PSECT _PATSPLIT,NOWRT ,NOEXE ,0 

00 P.AAA: BYTE 
| 
| 
| 


00 06 6 04 00 00 00 00 0 0 06 0 6, 0,0, 0, 0,0, 0, 0. 0. 4, 6. 6, 6. 6 -; 
FERRER RRR R RRB ee BH 8 BB He Sah 088 Be 2 
or Or OF OF 08 0 $08 93 06 99 13 16 doose 20°26 8, 25 $.'2, 46, 15, 82°25; 98.6, = 


3 


3D 3& 53 4D 51 


51 00000000°EF40 00000000'EF 


Att 


40 


00004000 06000000 20000000 


7 
16-5¢ -1984 :37 
1 ~8ep-19 4 90:35 
01 O01 1 1 1 0048 
HO ds Sie 
8 86 07 4 7 §098 
52 46 4C 3F 49 00080 P.AAB: .BYTE 
eee 
51800800 80000000 00094 P.AAC: .LONG 
04 03 02 O01 0 OOA8 P.AAD: .BYTE 
4 OOAD P.AAE: .ASCII 
02 QOOAE -BYTE 
4F QOOAF ASCII 
08 00080 BYTE 
44 00081 ASCII 
OA Babes BYTE 
58 0008 ASCII 
10 00084 BYTE 
CHAR_TYPE_TABLE= 
TOKEN_TABLE= 
LEX_TYPE TBL= 
LEX” STATE_TBL= 
RADIX_EQUIV_TBL= 
eEXTRN 
~EXTRN 
-PSECT 
OFFC 00000 ENTRY 
3 04 ce 0000 SUBL2 
5 04 AC 00 0000 MOVL 
04 <A? YF 00009 PUSHAB 
58 00 BE »bO 0000C MOVL 
59 08 AC 00 00010 MOVL 
04 AY DD 00014 PUSHL 
7E 00000000G FF 9A Booie MOVZBL 
5A D4 0001 CLRL 
56 68 9A 00020 1$: MOVZBL 
04 00000000'EF46 91 000 CMPB 
05 3 002B BEQL 
67 5A A2 00020 SUBW2 
06 11 90 9 ARB 
D6 000352 2$: INCL 
5A 06 5 INCL 
&8 11 6 BRB 
0 be 8 038 3$: CLRL 
46 78 OO03A 4$: ASHL 
08 18 00048 BGEQ 
AE 00000000'EF40 9A OQO04A MOVZBL 
0B 11 0005 RB 
2 6 3 5$: INCL 
” 85 005A BL ed 
AE BS 8 $5 C 6$: MOVL 


P.AAE 
PATSFAO_OUT, PAT$RADX_CONVRT 
PATSGB_DEF_MOD, PAT$GB_MOD_PTR 


-PATSCODE ,NOWRT ,2 


VAX=11 Bliss-32 V4.0-742 
:36 —- DISKSVMSMASTER: CPATCH. SRCJPATLEX.B32 
{9. ,5+,5. 3,3. sad pad ad ad ad kd 
36,0185'20° 17,1, 6,6, 6,16,.6,.8,.6,.° 
fe ze t. t. te 2. r. z. 7, z. r. : ae iy 
i tts: Oh Weak: Bo ae 8. 
sai47 3648, 1367345153, $4485 69 i 
100663296, 16384 
| ih a i 
\B\ 
2 
\0\ 
8 
\D\ 
10 
\x\ 
16 

P.AAA 

*AAB 
P.AAC 
P.AAD 


Pp 


age 
79 


PATSMAR_GET_LEX, Save R2,R3,R4,R5,R6,R7,R8,-; 1074 
R9,R10,R11 ; 


° ° 


INPUT_STG_DESC, R7 
4(R7) 


@0(SP), INPUT PTR 
LEXENE_STG_DESC, RO 


@PATSGB_MOD_PTR, PREVIOUS_RADIX 
COUNT 


(INPUT_PTR), CHAR 
CHAR_TYPE_TABLELCHAR], #4 


QUNT, (R7) 


INPUT_PTR 
COUNT 


$ 
STATE_INDEX 
HAR_TYPE 
STATE INDEX 
LEX STATE _TBLCSTATE INDEX), STATE 
STATE_INDEX 

STATE_INDEX, #4 

#5, STATE 


Epa tated LEX_TYPE_TBL- 
2 RI 


DYNAM LS SE LEW 


1231 
1232 


<v 
e= 


Be Se Se Oe Be Se Be Se Se Se Ge Se Se Ge Se Ge Se Se Se Se Ge Se Se Se Se Fe Se Ge Se Ge Se Ge Se Se Se Se Se Se Se Se Se Se Se Se See Se Se Be Se ee BH Se SH Se teas 


7 
PATL 1§- -Sep-1984 7:30 VAX=11 BLi $8732 V4.0-742 Page 19 
v04- Boo 14-Sep- aati 99: 35: 6  DISKSVMSMASTER:CPATCH.SRCIPATLEX.B32:1° (B) 
05 0 OC AE CF 00060 7$: CASEL STATE, #0, #5 : 1280 
0135 0090 oooe 0209 2069 8$: <WORD 37$-8$,- : 
018 14 006d 9$-8$,- : 
17$-8$,- ; | 
$-8$,- : 
$-8$,- 3 
4$-8$ ; 
01F1 31 00071 BRW 7$ + 1284 
5A D4 00074 9S: CLRL COUNT + 1297 
2E 56 D1 00076 CMPL CHAR, #46 + 1298 
50 1 AB 9a bore SO ZBL Fs PTR) : 1305 
50 51800000 &F 00000000" eF6 "8 0007F ASHL CHAR. TYPE "TABLE NEW" Chard. #1367343104, RO : 1307 
50 07 00 O008E MOVL #1, PERIOD_PRESENT + 1316 
08 11 00097 BRB 11§ + 1298 
50 D4 00093 10$: CLRL PERI 0D, : 1318 
51 00000000'EF46 9A 00095 11$: | MOVZBL CHAR VPE saat EgHAn R1 + 1328 
50 01800000 &F 51 78 0009D 12$:  ASHL RI 925 165 : 
03 18 000A5 BGEQ 13$ : 
56 20 C2 000A7 SUBL2 #32, CHAR + 1329 
A D6 OOOAA 13S: INCL COUN : 1330 
1F 5A D1 OOOAC CMPL COUNT, #31 + 1331 
07 14 OOOAF BGTR 14$ : 
04 BE 56 90 00081 MOVB CHAR, eel : 1332 
04 AE D6 00085 INCL LEXEME PTR : 
58 D6 000B8 14$: INCL INPUT PTR t 1333 
56 68 9A OOOBA MOVZBL (IN NUT PTR), CHAR : 
51 00000000'EF46 9A OO0BD MOVZBL CHAR_TYPE TABLECCHAR], R1 + 1337 
50 71800800 &F 51 78 000C5 ASHL——R1 H 904216064, RO : 
CE 19 000CD BLSS  12$ : 
1F 5A D1 OOOCF CMPL COUNT, #31 : 1356 
12 15 000D2 BLEQ =«-:*d15$ : 
006D8033 8F DD 000D4 PUSHL #7176243 + 1359 
000000006 00 01 FB OOODA CALLS #1, LIBSSIGNAL : 
69 1F BO 000E1 MOVW #31, (R9) : 1360 
03 11 O00E4 BRB 16$ : 1356 
69 5A BO OO0E6 15$:  MOVW COUNT, (R9) : 136 
08 BE 58 D0 QO0E9 16$:  MOVL_ =INPUT-PTR, a8(SP) : 136 
67 5A A2 OO0ED UBW2  COUNT™ (R7) : 1364 
50 47 BF 9A 000FO MOVZBL , RO + 1365 
04 O00F4 T ; 
SA D4 OOOFS 17$:  CLRL COUNT : 1375 
30 56 (1 O00F7 18$: CMPL CHAR, #48 : 1377 
9 12 OOOFA BNEQ 19$ : 
A 06 OO0FC INCL : 1380 
D6 OOOF INCL INPUT_PTR ; 1581 
56 6 9A or MOVZBL (INPUT_PTR), CHAR Fcan 
67 3A A2 00105 19$: | SUBW2 COUNT, (R7) : 1388 
A ps 0108 CLRL NT : 1389 
02 00000000" EF 46 91 O10A CHPE HAR_TYPE_TABLECCHAR], #2 : 1390 
50 10800000 8F 00000000" EF 46 ‘8 O14 ASHL HAR_TYPE_TABLELCHAR], #276824064, RO : 1391 
04 94 135 CLRB  @LEXEME PTR > 1394 
69 BF B0 61 6 MOVW ai tROY > 1395 
| 
| 
| 


———___________— 7 
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+30 
736 
08 BE 58 DO 00129 MOVL NPUT_PTR, @8(SP) : 139 
66 11 0012D BRB af . : 1397 
58 00000000'EF46 9A OO1oF 08: MOVZBL CHAR_TYPE_TABLECCHAR], R11 + 1405 
0 38 D1 4 7 21$:  CMPL  R11,7#8 : 
1g 13A BNEO 268 : 
56 0 ¢2 0013¢c SUBL2 #32, CHAR > 1406 
A 06 4 F 22$: INCL COUN + 1407 
14 SA D1 00141 CMPL COUNT, #20 + 1408 
13 15 00144 BLEQ : 
50 04 a9 D0 00146 MOVL.  4(R9), RO + 1412 
60 01 AO 13 28 OO14A MOVC3 #19, 1(RO), (RO) + 1413 
50 046 A Qi ( O14F SUBL3 #1, LEXEME.PTR, RO + 1414 
6 6 0154 MOVE CHAR. (RO) : 
07 11 00157 BRB 4$ + 1416 
04 BE 56 90 00159 23 MOVB CHAR, @LEXEME_PTR : 
04 AE D6 0015D INCL LEXEME_PTR : 
58 D6 00160 24$: INCL ‘INPUT + 1417 
56 68 9A 0016¢ MOVZBL (INPUT PTR), CHAR : 
5B 00000000°EF46 9A 0016 MOV ZBL CHAR, TTPE TABLELCHARI, R11 + 1421 
50 30800000 F 5B 78 0016D SHL R11, -#813694976, RO ; 
CO 19 00175 iss os : 
04 Ad DD 00177 PUSHL  4(R9) * 1429 
04 AQ DD OOI7A PUSHL  4(R9) + 1428 
000000006 EF 02 FB 0017D CALLS #2, PATSRADX_CONVRT : 
000000006 FF 6E 90 00184 MOVB § PREVIOUS_RADIX, @PATSGB_MOD_PTR > 1430 
69 04 BO 00188 MOVW #4, (RO) > 1431 
08 BE 58 DO 00185 MOVL. _-INPUT_PTR, @8(SP) + 1432 
67 5A A2 0019 SUBW2 COUNT; (R?) + 1433 
50 48 ®8F 9A 00195 25$:  MOVZBL #72, RO : 1434 
04 00199 RET : 
69 B4 OO19A 26$: CLRW  (R9) + 1444 
08 BE 01 A8 9E 0019C MOVAB 1(R8), a8(SP) + 1445 
67 B7 OO1A1 ECW (R7) + 1446 
50 63 8F 9A O01A3 MOVZBL #99, RO + 1447 
04 001A7 ET ; 
56 01 A8 9A 001A8 27$:  MOVZBL 1(INPUT_PTR), CHAR + 1463 
50 01800000  &F 00000000'EF46 78 OOTAC ASHL  CHAR_TYPE_TABLECCHAR], #25165824, RO + 1464 
03 18 00189 GEQ = 28S : 
56 20 C2 00188 SUBL2 #32, CHAR > 1465 
00000042 8F 6 D1 O01BE 28$: CMPL CHAR, #66 + 1466 
1B 13 001C BEQL 29S ; 
0000004F  8F 56 Di 001C7 CMPL = CHAR, #79 : 
12 13 OO1CE BEQL 29S ; 
00000044 8F 56 (1 9109 CMPL CHAR, #68 : 
09 13 001D BEQL 9$ : 
00000058 = 8F 6 Di 00109 CMPL HAR, #88 : 
44 12 OO1E0 BNEQ 3$ ; 
51 02 AS 9A OO1E2 29$:  MOVZBL 2(INPUT_PTR), NEW_CHAR > 1486 
50 30800000 &F 00000000" EF 41 18 a0188 ASHL CHAR_TYPE_TABLECNEW_ CHARI, #813694976, RO: 1488 
58 08 ai) tt ADDL2 33 INPUT_PTR + 1491 
bs 01FB CLRL —INDEX > 1493 
00000000°EF40 3F OO1FA 30$:  PUSHAW RADIX EQUIV_TBLCINDEX) : 
56 9E 08 00 ft 0 4) CMPZV #0, #8, a(SP)+, CHAR : 
000000006 FF 00000000" EF 46 ; 09 08 CVTWB  RADIX_EQUIV_TBL+1CINDEX], @PATSGB_MOD_PTR ; 1497 
04 11 00214 BRB 32$ > 1495 
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CMOOTDVTMNOAUINWVOM= MOtZOT WW —— > 
ww 
wow u 


~ 
o 


5E 


51 00000000' 


oe vr oO wow 
oO - wN OOD 


08 
50 00000000'EF 
1c 
006D80D2 


oc 
04 
000000006 00 


EO 


PATSCODE + 0000 


629 bytes, Routine Base: 


; Routine Size: 


Information: 2 
Warnings: 
Errors: 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/VARIANT:1/LIS=LIS$:PATLEX/OBJ=OBJ$:PATLEX MSRC$:PATLEX/UPDATE=(ENH$:PATLEX) 
; Size: 629 code + 181 data bytes 
00:26.9 


Elapsed Time: 01:23.5 
Lines/CPU Min: 4 
Lexemes/CPU-Min: 35021 
Memory Used: 282 pages 
Compication Complete 


Wu 


PATL 16-Sep-1984 7:30 VAX=-1 
v04- 14-Sep e-19 4 99: 35: 6 DISK$ 
; 605 1338 END ! End of module 
; 606 1560 0 ELUDOM 
-EXTRN LIBSSIGNAL 
3 PSECT SUMMARY 
: Name Bytes Attributes 
: _PATSPLIT 181 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN( 
: “PATSCODE 629 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN( 
H Library Statistics 
Se Se er oe ea eRe Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 4 0 1000 00:01.9 
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